5 POKE53280,.:POKE53281,.
10 PRINT"[147]         [154]PRESS H [154]TO HEAR THE SIREN"
20 PRINT"         PRESS Q [154]TO QUIT"
30 A=PEEK(203):IFA=29THEN100
40 IFA<>62THEN30
45 D=PEEK(186):IFD<8THEND=8
50 PRINT"[147][144]LOAD"CHR$(34)"B.TIPS AND TRICK"CHR$(34)","D
60 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
100 REM EUROPEAN SIREN - MICHAEL GATTO
110 N=5  :REM NUMBER OF SIREN BLASTS
120 S=54272:V=S+24:AD=S+5:SR=S+6:W=S+4
130 POKE V,15:POKE AD,0:POKE SR,240:POKE W,33
140 FOR J=1 TO N
150 POKE S,52:POKE S+1,43:FOR D=1 TO 300:NEXT
160 POKE S,75:POKE S+1,34:FOR D=1 TO 300:NEXT
170 NEXT J
180 POKE W,32:POKE V,0
190 RUN
10000 D=PEEK(186):N$="EUROPEAN SIREN":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END